home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Photo Albu255378292001.psc / frmSplash.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-08-29  |  6.2 KB  |  190 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BackColor       =   &H80000009&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   3105
  6.    ClientLeft      =   255
  7.    ClientTop       =   1410
  8.    ClientWidth     =   4755
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Icon            =   "frmSplash.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    LockControls    =   -1  'True
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   3105
  18.    ScaleWidth      =   4755
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   2  'CenterScreen
  21.    Begin VB.Frame Frame1 
  22.       BackColor       =   &H80000009&
  23.       Height          =   2775
  24.       Left            =   150
  25.       TabIndex        =   0
  26.       Top             =   165
  27.       Width           =   4455
  28.       Begin VB.Timer Timer1 
  29.          Interval        =   4000
  30.          Left            =   360
  31.          Top             =   1800
  32.       End
  33.       Begin VB.Label Label3 
  34.          Alignment       =   1  'Right Justify
  35.          AutoSize        =   -1  'True
  36.          BackColor       =   &H80000009&
  37.          Caption         =   "http://compuwhizkid.tripod.com"
  38.          BeginProperty Font 
  39.             Name            =   "Arial"
  40.             Size            =   7.5
  41.             Charset         =   0
  42.             Weight          =   400
  43.             Underline       =   -1  'True
  44.             Italic          =   0   'False
  45.             Strikethrough   =   0   'False
  46.          EndProperty
  47.          ForeColor       =   &H00C00000&
  48.          Height          =   195
  49.          Left            =   2175
  50.          MouseIcon       =   "frmSplash.frx":000C
  51.          TabIndex        =   5
  52.          Top             =   2415
  53.          Width           =   2190
  54.       End
  55.       Begin VB.Label Label2 
  56.          Alignment       =   1  'Right Justify
  57.          AutoSize        =   -1  'True
  58.          BackColor       =   &H80000009&
  59.          Caption         =   "Sachin Palewar"
  60.          BeginProperty Font 
  61.             Name            =   "Arial"
  62.             Size            =   7.5
  63.             Charset         =   0
  64.             Weight          =   400
  65.             Underline       =   0   'False
  66.             Italic          =   0   'False
  67.             Strikethrough   =   0   'False
  68.          EndProperty
  69.          ForeColor       =   &H8000000D&
  70.          Height          =   195
  71.          Left            =   2175
  72.          TabIndex        =   4
  73.          Top             =   2220
  74.          Width           =   1110
  75.       End
  76.       Begin VB.Label Label1 
  77.          Alignment       =   1  'Right Justify
  78.          AutoSize        =   -1  'True
  79.          BackColor       =   &H80000009&
  80.          Caption         =   "Developed By"
  81.          BeginProperty Font 
  82.             Name            =   "Arial"
  83.             Size            =   10.5
  84.             Charset         =   0
  85.             Weight          =   400
  86.             Underline       =   0   'False
  87.             Italic          =   0   'False
  88.             Strikethrough   =   0   'False
  89.          EndProperty
  90.          ForeColor       =   &H8000000D&
  91.          Height          =   240
  92.          Left            =   2175
  93.          TabIndex        =   3
  94.          Top             =   1920
  95.          Width           =   1320
  96.       End
  97.       Begin VB.Label lblproductname 
  98.          Alignment       =   2  'Center
  99.          AutoSize        =   -1  'True
  100.          BackColor       =   &H80000009&
  101.          Caption         =   "Make Your Own Album In 3 Steps"
  102.          BeginProperty Font 
  103.             Name            =   "Arial"
  104.             Size            =   12
  105.             Charset         =   0
  106.             Weight          =   700
  107.             Underline       =   0   'False
  108.             Italic          =   0   'False
  109.             Strikethrough   =   0   'False
  110.          EndProperty
  111.          ForeColor       =   &H8000000D&
  112.          Height          =   285
  113.          Left            =   180
  114.          TabIndex        =   2
  115.          Top             =   210
  116.          Width           =   3900
  117.       End
  118.       Begin VB.Label lblVersion 
  119.          Alignment       =   1  'Right Justify
  120.          AutoSize        =   -1  'True
  121.          BackColor       =   &H80000009&
  122.          Caption         =   "Version"
  123.          BeginProperty Font 
  124.             Name            =   "Arial"
  125.             Size            =   10.5
  126.             Charset         =   0
  127.             Weight          =   700
  128.             Underline       =   0   'False
  129.             Italic          =   0   'False
  130.             Strikethrough   =   0   'False
  131.          EndProperty
  132.          ForeColor       =   &H8000000D&
  133.          Height          =   225
  134.          Left            =   2265
  135.          TabIndex        =   1
  136.          Top             =   690
  137.          Width           =   840
  138.       End
  139.    End
  140. Attribute VB_Name = "frmSplash"
  141. Attribute VB_GlobalNameSpace = False
  142. Attribute VB_Creatable = False
  143. Attribute VB_PredeclaredId = True
  144. Attribute VB_Exposed = False
  145. '************************************************
  146. 'Developed by Sachin Palewar, Nagpur (India)
  147. 'email:- palewar@hotmail.com
  148. 'web :- http://compuwhizkid.tripod.com
  149. '************************************************
  150. Option Explicit
  151. Private Sub Form_KeyPress(KeyAscii As Integer)
  152.     Unload Me
  153. End Sub
  154. Private Sub Form_Load()
  155.     lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
  156.  End Sub
  157. Private Sub Form_Unload(Cancel As Integer)
  158. frmextension.Show
  159. End Sub
  160. Private Sub Frame1_Click()
  161. Unload Me
  162. End Sub
  163. Private Sub Image1_Click()
  164. Unload Me
  165. End Sub
  166. Private Sub imgLogo_Click()
  167. Unload Me
  168. End Sub
  169. Private Sub Label1_Click()
  170. Unload Me
  171. End Sub
  172. Private Sub Label2_Click()
  173. ShellExecute hwnd, "open", "http://compuwhizkid.tripod.com", vbNullString, vbNullString, conSwNormal
  174. End Sub
  175. Private Sub Label3_Click()
  176. ShellExecute hwnd, "open", "http://compuwhizkid.tripod.com", vbNullString, vbNullString, conSwNormal
  177. End Sub
  178. Private Sub Label3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  179. Label3.ForeColor = vbRed
  180. End Sub
  181. Private Sub lblProductName_Click()
  182. Unload Me
  183. End Sub
  184. Private Sub lblVersion_Click()
  185. Unload Me
  186. End Sub
  187. Private Sub Timer1_Timer()
  188. Unload Me
  189. End Sub
  190.